home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / Compiler / Builtins / Time.m < prev    next >
Text File  |  1990-08-16  |  3KB  |  98 lines
  1. % 
  2. % @(#)Time.m    1.2  6/29/87
  3. %
  4. export _TimeObject to "Builtins"
  5.  
  6. const _TimeObject == immutable object _TimeObject
  7.   export getSignature, create
  8.   const TimeType == immutable type TimeType
  9.     function + [o : Time] -> [r : Time]
  10.       % r <- self + o
  11.     function - [o : Time] -> [r : Time]
  12.       % r <- self - o
  13.     function * [o : Integer] -> [r : Time]
  14.       % r <- self * o
  15.     function / [o : Integer] -> [r : Time]
  16.       % r <- self / o
  17.     function > [o : Time] -> [r : Boolean]
  18.       % r <- self > o
  19.     function >= [o : Time] -> [r : Boolean]
  20.       % r <- self >= o
  21.     function < [o : Time] -> [r : Boolean]
  22.       % r <- self < o
  23.     function <= [o : Time] -> [r : Boolean]
  24.       % r <- self <= o
  25.     function = [o : Time] -> [r : Boolean]
  26.       % r <- self = o
  27.     function != [o : Time] -> [r : Boolean]
  28.       % r <- self != o
  29.     function getSeconds -> [r : Integer]
  30.     function getMicroSeconds -> [r : Integer]
  31.     function asString -> [String]
  32.     function asDate -> [String]
  33.   end TimeType
  34.   function getSignature -> [result : Signature]
  35.     result <- TimeType
  36.   end getSignature
  37.   function create [seconds : Integer, microseconds : Integer] -> [result : TimeType]
  38.     result <- immutable object aTime
  39.       export +, -, *, /, >, >=, <, <=, =, !=, getSeconds, getMicroSeconds, asString,
  40.     asDate
  41.       var secs : Integer <- seconds
  42.       var msecs: Integer <- microseconds
  43.       initially
  44.     if msecs < 0 then
  45.       secs <- secs + (msecs / 1000000) - 1
  46.       msecs <- 1000000 + (msecs # 1000000)
  47.     end if
  48.     if msecs >= 1000000 then
  49.       secs <- secs + (msecs / 1000000)
  50.       msecs <- msecs # 1000000
  51.     end if
  52.       end initially
  53.       function + [o : Time] -> [r : Time]
  54.     primitive 013 [r] <- [o]
  55.       end +
  56.       function - [o : Time] -> [r : Time]
  57.     primitive 113 [r] <- [o]
  58.       end -
  59.       function * [o : Integer] -> [r : Time]
  60.     primitive 213 [r] <- [o]
  61.       end *
  62.       function / [o : Integer] -> [r : Time]
  63.     primitive 313 [r] <- [o]
  64.       end /
  65.       function > [o : Time] -> [r : Boolean]
  66.     primitive 413 [r] <- [o]
  67.       end >
  68.       function >= [o : Time] -> [r : Boolean]
  69.     primitive 513 [r] <- [o]
  70.       end >=
  71.       function < [o : Time] -> [r : Boolean]
  72.     primitive 613 [r] <- [o]
  73.       end <
  74.       function <= [o : Time] -> [r : Boolean]
  75.     primitive 713 [r] <- [o]
  76.       end <=
  77.       function = [o : Time] -> [r : Boolean]
  78.     primitive 813 [r] <- [o]
  79.       end =
  80.       function != [o : Time] -> [r : Boolean]
  81.     primitive 913 [r] <- [o]
  82.       end !=
  83.       function getSeconds -> [r : Integer]
  84.     primitive 1013 [r] <- []
  85.       end getSeconds
  86.       function getMicroSeconds -> [r : Integer]
  87.     primitive 1113 [r] <- []
  88.       end getMicroSeconds
  89.       function asString -> [r : String]
  90.     primitive 1213 [r] <- []
  91.       end asString
  92.       function asDate -> [r : String]
  93.     primitive 1313 [r] <- []
  94.       end asDate
  95.     end aTime
  96.   end create
  97. end _TimeObject
  98.